home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / First Tutorial / Loops < prev    next >
Text File  |  1998-10-26  |  466b  |  33 lines
  1. (def-tonality
  2.     bass (activate-tonality (lydian c 3))  
  3. )
  4.  
  5. (def-symbol
  6.     bass '((a d -b e) (= f e d) (c -d -c -b))    
  7. )
  8.  
  9. (def-length
  10.     bass '((1/4 1/16 1/8 1/16) 
  11.            (-1/8 1/8 1/8 1/8) 
  12.            (1/16 1/8 1/16 1/4))
  13. )
  14.  
  15. (def-zone
  16.     bass '(4/2 8/2 4/2)
  17. )
  18.  
  19. (def-velocity
  20.     bass '((110 72 96 84) (0 72 84 96) (84 96 72 110))
  21. )
  22.  
  23. (def-channel
  24.     bass 1
  25. )
  26.  
  27. (def-tempo 120)
  28.  
  29. (midiport :printer)
  30.  
  31. (compile-instrument-p "ccl;output:" "loops"  
  32.     bass
  33. )